home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Install-Example < prev    next >
Encoding:
Text File  |  2000-10-30  |  2.6 KB  |  68 lines
  1. ## -*-Inst-*- (auto-install-script)
  2.  # ===========================================================================
  3.  #  Mode Examples - a Help package for Alpha
  4.  # 
  5.  #  FILE: "Install-Example"
  6.  #                                    created: 03/12/00 {07:51:40 pm} 
  7.  #                                last update: 10/17/00 {08:21:06 pm} 
  8.  #                                
  9.  #  Author: Craig Barton Upright
  10.  #  E-mail: <cupright@princeton.edu>
  11.  #    mail: Princeton University,  Department of Sociology
  12.  #          Princeton, New Jersey  08544
  13.  #     www: <http://www.princeton.edu/~cupright>
  14.  #  
  15.  # ===========================================================================
  16.  # 
  17.  # If you want to modify this example to create an actual Open To Install
  18.  # file for your own Alpha package, save a copy of this file somewhere in
  19.  # the :Tcl directory, and then open and edit it as needed.
  20.  # 
  21.  # To modify this file and turn it into an actual "Open To Install" script,
  22.  # here are some suggestions.
  23.  # 
  24.  #   • Replace "Install Example" with the name of your mode, package, etc.
  25.  #   • Remove the last line, "  -ignore ...  ".
  26.  #   • Remove the \ (command continue marker) on the second to last line.
  27.  #   • Put in your own message!
  28.  # 
  29.  # To separate portions of text with an empty line, type a <space> after the
  30.  # backslash (\).  I don't know why this works, but it does.  The empty lines
  31.  # that appear below are visual markers only, and do not create spaces.
  32.  # 
  33.  # It is also recommended that you create specific folders adjacent to the 
  34.  # Open To Install file to help direct installation, i.e. Help, Modes, Menus, 
  35.  # Packages, etc.  Otherwise the installation proc will make some educated 
  36.  # guesses about where your files should be installed.
  37.  # 
  38.  # The " -ignore " option is just one of several available with the install
  39.  # proc.  See the Extending Alpha file for more installation script options.
  40.  # 
  41.  # ===========================================================================
  42.  ##
  43.  
  44.  
  45. # We need to be sure that nothing in this folder gets installed.
  46. set ignoreExamples1 [glob [file join $HOME "Mode Examples" * ]]
  47. foreach f $ignoreExamples1 {
  48.     lappend ignoreExamples2 [file tail $f]
  49. }
  50.  
  51. install::packageInstallationDialog "Install Example" "\
  52.  
  53. This dialog appears when opening an\
  54. 'Open To Install' file, presenting\
  55. the user with the options below.\ 
  56.  
  57. 'Custom Install' would normally list the files\
  58. which would be installed by clicking 'OK' --\
  59. This file does not actually install anything.\ 
  60.  
  61. To see the actual contents of this file,\
  62. press any modifier key while opening the hyperlink.\
  63. " \
  64. -ignore $ignoreExamples2
  65.  
  66. unset ignoreExamples1 
  67. unset ignoreExamples2
  68.